home *** CD-ROM | disk | FTP | other *** search
- name Compact II Mill Source
-
- G 2
- p >8
- x +->3.>4
- y +->3.>4
- z ->3.>4
- X +->3.>4
- Y +->3.>4
- Z +->3.>4
- a >3.>4 IncFrom Z
- f >3.>3
- q 00
- @ >3.>4 IncFrom Z
- r ->3.>4
- t >2
- l >2
- h ->3.>4
- s >4 ,
- M 2
- o >3.>4
- c >3.>4
- b >3.>4
- g >2 G
- d >2 ""
- e ->3.>4
- ) 00
-
- ModalLetters f # List of letters that are modal
-
- ModalGs # List of g codes that are modal
-
- HCode X # X or X U 'Horizontal char.
- VCode Y # Y or Y V 'Vertical char.
- Dcode Z # Depth char.
- FeedCode f # Feed rate char.
-
- Comment $ # Begin End comment char.
-
- Spindle 3 4 5 # Cw, ccw & stop m codes
- Coolant 8 9 7 # On, Off & Mist m codes
- DComp 41 42 40 # Left, Right & Cancel m codes
- LComp 43 49 # On & Off codes
-
- Feed G1 # Linear move
-
- Inc/Abs G 91 90 # Inc & Abs char. & values
-
- Work G # Work offset register
-
- CtrCode I J # I J or R or I J K L
- Helical? N
-
- Spaces? N # Y or N 'Spaces between words
- Incremental? N # Y or N 'Inc or abs output
- CtrIncremental? N # Y or N 'Inc or abs I & J
- ByQuadrants? N # Y or N 'Break arcs at quadrants
-
- UppercaseComments? Y # Y or N 'Require uppercase comments
-
- Drill # Drilling canned/manual cycle
- G81 a[Depth] X[H] Y[V] Z[D] f[FRate] @[PointD]
- end
-
- Peck # Pecking canned/manual cycle
- G83 a[Depth] X[H] Y[V] Z[D] f[Frate] @[PointD] o[VBite]
- end
-
- Tap # Tapping canned/manual cycle
- G84 a[Depth] X[H] Y[V] Z[D] f[Frate] @[PointD]
- end
-
- Ream # Reaming canned/manual cycle
- G85 a[Depth] X[H] Y[V] Z[D] f[FRate] @[PointD]
- end
-
- Bore # Boring canned/manual cycle
- G86 a[Depth] X[H] Y[V] Z[D] f[FRate] @[PointD]
- end
-
- StartCode # Start of the program
- G99
- p[Val1]
- G97 x[Val2] y[Val3] z[Val4]
- End
-
- 1stToolChange # First tool change
- t[Tool] l[Lcomp] h[Length] s[Speed] M[Direct] c[ToolDiam] M[Cool]
- End
-
- Infeed # Enable cutter comp
- G01 X[H] Y[V] Z[D] g[Side] d[DComp]
- end
-
-
- Outfeed # Disable cutter comp
- G01 X[H] Y[V] Z[D] g40
- end
-
- ToolChange # Secondary tool changes
- t[Tool] l[Lcomp] h[Length] s[Speed] M[Direct] c[ToolDiam] M[Cool]
- End
-
- EndCode # End of the program
- G00 X[Val2] Y[Val3] Z[Val4] M09
- M02
- End
-
- RapidCode # Rapid move
- G00 X[H] Y[V] Z[D]
- end
-
- LineCode # Linear move
- G01 X[H] Y[V] Z[D] f[FRate]
- end
-
- CwCode # CW circular move
- G02 X[Hctr] Y[Vctr] r[ArcRad] e[EndAng] )00
- end
-
- CcwCode # CCW circular move
- G03 X[Hctr] Y[Vctr] r[ArcRad] e[EndAng] )00
- end
-
- Ask [Val1] " Program# : " "0000"
- Ask [Val2] " X-Axis home: " " 0.0"
- Ask [Val3] " Y-Axis home: " " 0.0"
- Ask [Val4] " Z-Axis home: " "10.0"
-
-
- Replace "G00" with "MOVE, "
- Replace "G01" with "CUT, "
- Replace "G02" with "CONT, CW, CIR("
- Replace "G03" with "CONT, CCW, CIR("
- Replace "G41" with ", CDCL"
- Replace "G42" with ", CDCR"
- Replace "G40" with ", CDC/OFF"
- Replace "G81" with "DRL, "
- Replace "G83" with "DRL, "
- Replace "G84" with "FLT, "
- Replace "G85" with "REAM, "
- Replace "G86" with "BORE, "
- Replace "G99" with "MACHIN,MILL"
- Replace "p" with "IDENT, "
- Replace "G97" with "SETUP, "
- Replace "t" with "ATCHG, TOOL "
- Replace "e" with "), S(LOC), F("
- Replace "f" with ", IPM "
- Replace "X" with " XB "
- Replace "Y" with ", YB "
- Replace "Z" with ", ZB "
- Replace "a" with ", A "
- Replace "x" with "LX "
- Replace "y" with ", LY "
- Replace "z" with ", LZ "
- Replace "r" with ", R "
- Replace "@" with ", CLEAR "
- Replace "l" with ", OFFSET "
- Replace "h" with ", GL "
- Replace "M00" with ", STOP"
- Replace "M01" with ", OSTOP"
- Replace "M02" with "END"
- Replace "M03" with " RPMRH"
- Replace "M04" with " RPMLH"
- Replace "M08" with ", CON"
- Replace "M09" with ", COF"
- Replace "M07" with "CON1"
- Replace "o" with ", SDEPTH "
- Replace "c" with ", TD "
- Replace "b" with ", TLCR "
-